home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998…eptember: Technology Seed / September 98 ADC Seed CD.toast / LaserWriter 8.6b5 Seed / LaserWriter 8.6b5 / PrintingLib / PrintingLib.rsrc / PS_-8134 < prev    next >
Encoding:
Text File  |  1998-08-12  |  893 b   |  80 lines
  1. %%?BeginFeatureQuery: *ColorDevice
  2. mark
  3. {
  4. /languagelevel where
  5. {
  6. pop languagelevel 2 ge
  7. }{
  8. false
  9. }ifelse
  10. {
  11. statusdict begin
  12. /processcolors where
  13. end
  14. {
  15. /processcolors get true
  16. }{
  17. false
  18. }ifelse
  19. {
  20. exec 1 eq
  21. {
  22. /OutputDevice/Category resourcestatus
  23. {
  24. pop pop
  25. /odevs 0 def
  26. /found false def
  27. (*)
  28. {
  29. /OutputDevice findresource
  30. /ProcessColorModel 2 copy known
  31. {
  32. /odevs odevs 1 add def
  33. get
  34. {
  35. /DeviceGray ne{(True)/found true def exit}if
  36. }forall
  37. found{exit}if
  38. }{
  39. pop pop
  40. }ifelse
  41. }bind
  42. 100 string/OutputDevice
  43. resourceforall
  44. odevs 0 eq{(Unknown)}{found not{(False)}if}ifelse
  45. }{
  46. (Unknown)
  47. }ifelse
  48. }{
  49. (True)
  50. }ifelse
  51. }{
  52. (False)
  53. }ifelse
  54. }{
  55. systemdict/colorimage known
  56. {
  57. statusdict begin
  58. /processcolors where
  59. {
  60. pop processcolors 1 eq
  61. {
  62. (Unknown)
  63. }{
  64. (True)
  65. }ifelse
  66. }{
  67. (False)
  68. }ifelse
  69. end
  70. }{
  71. (False)
  72. }ifelse
  73. }ifelse
  74. print(\n)print cleartomark
  75. }stopped
  76. {
  77. cleartomark(Unknown\n)print
  78. }if
  79. %%?EndFeatureQuery: Unknown
  80.